home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 89 / maccd 89.iso / utilities / Mac OS X / ProcessWizard.dmg / ProcessWizard / ProcessWizard Daemon.app / Contents / Resources / nice.pl < prev    next >
Encoding:
Perl Script  |  2002-01-24  |  294 b   |  22 lines
  1. #!/usr/bin/perl
  2. # 
  3. # USAGE : nice.pl <pid> 
  4.  
  5. $pid = $ARGV[0];
  6.  
  7. open SHELL2, "ps -p$pid -oni |" or die "probleme";
  8.  
  9. # NI
  10. # 5
  11.  
  12.     #<SHELL2>; # On oublie ainsi la première ligne (PID NI COMMAND)
  13.     while (<SHELL2>)
  14.     { 
  15.         chop;
  16.         @t = split(" ", $_, 1) ;
  17.  
  18.         $pid = $t[0] ;
  19.     }
  20. close SHELL2;
  21.  
  22. print $pid;